/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / COMAL-TUTOR-1.ARC / LESSON FIFTEEN

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| e4 12 43 13 c8 13 00 0a | 1e 00 20 44 45 4c 45 54 |..C.....|.. DELET|
|00000010| 45 20 22 30 3a 4c 45 53 | 53 4f 4e 20 46 49 46 54 |E "0:LES|SON FIFT|
|00000020| 45 45 4e 22 00 14 16 00 | 20 53 48 49 47 4c 45 59 |EEN"....| SHIGLEY|
|00000030| 20 54 55 54 4f 52 49 41 | 4c 53 00 1e 1e 00 20 53 | TUTORIA|LS.... S|
|00000040| 41 56 45 20 20 20 22 30 | 3a 4c 45 53 53 4f 4e 20 |AVE   "0|:LESSON |
|00000050| 46 49 46 54 45 45 4e 22 | 00 28 06 7f 01 81 00 32 |FIFTEEN"|.(.....2|
|00000060| 06 7f 02 81 00 3c 06 7f | 03 81 00 46 06 7f 04 81 |.....<..|...F....|
|00000070| 00 50 06 7f 05 81 00 5a | 06 7f 06 81 00 64 06 7f |.P.....Z|.....d..|
|00000080| 07 81 00 6e 06 7f 0d 81 | 00 78 04 00 00 82 09 70 |...n....|.x.....p|
|00000090| 01 6c 8a 00 7b 00 8c 0b | 5f 02 00 8e 4b 65 60 61 |.l..{...|_...Ke`a|
|000000a0| 00 96 0c 8c 8f 08 00 02 | 00 0a 93 c5 00 a0 06 7f |........|........|
|000000b0| 09 81 00 aa 0a ff 1e 02 | 00 0c ff 1f 00 b4 12 5f |........|......._|
|000000c0| 03 09 4c 45 53 53 4f 4e | 20 31 35 65 60 61 00 be |..LESSON| 15e`a..|
|000000d0| 1f 5f 03 16 49 4e 54 52 | 4f 44 55 43 54 49 4f 4e |._..INTR|ODUCTION|
|000000e0| 20 54 4f 20 41 52 52 41 | 59 53 65 60 61 00 c8 06 | TO ARRA|YSe`a...|
|000000f0| 7f 0a 81 00 d2 05 7d 01 | 00 dc 04 00 00 e6 09 70 |......}.|.......p|
|00000100| 09 89 8a 00 7b 00 f0 0b | 5f 02 00 93 4b 65 66 61 |....{...|_...Kefa|
|00000110| 00 fa 05 7d 09 01 04 04 | 00 01 0e 09 70 0a 51 8b |...}....|....p.Q.|
|00000120| 00 7c 01 18 06 5f 60 61 | 01 22 09 07 0b 02 02 8d |.|..._`a|."......|
|00000130| 3a 01 2c 0b 97 04 0b d8 | 37 98 29 8b 01 36 16 5f |:.,.....|7.)..6._|
|00000140| 03 0d 1c 50 52 45 53 53 | 20 53 48 49 46 54 91 65 |...PRESS| SHIFT.e|
|00000150| 60 61 01 40 15 5f 03 0c | 20 20 20 20 20 20 20 20 |`a.@._..|        |
|00000160| 20 20 20 91 65 60 61 01 | 4a 06 9b d2 8a 01 54 0a |   .e`a.|J.....T.|
|00000170| ff 1e 02 00 0c ff 1f 01 | 5e 12 82 0c 10 00 02 00 |........|^.......|
|00000180| 01 84 02 01 2c 85 88 f4 | 89 01 68 06 7f 09 81 01 |....,...|..h.....|
|00000190| 72 0d 97 f9 02 00 00 4b | 31 99 f4 9a 01 7c 05 7d |r......K|1....|.}|
|000001a0| 0a 01 86 04 00 01 90 09 | 70 0d 6f 8b 00 7b 01 9a |........|p.o..{..|
|000001b0| 0c d2 03 04 4d 45 4e 55 | d4 d3 01 a4 05 7d 0d 01 |....MENU|.....}..|
|000001c0| ae 04 00 01 b8 09 70 02 | b9 8e 00 7b 01 c2 2d 5f |......p.|...{..-_|
|000001d0| 03 24 11 41 4c 4d 4f 53 | 54 20 41 4e 59 20 47 52 |.$.ALMOS|T ANY GR|
|000001e0| 4f 55 50 20 4f 46 20 56 | 41 4c 55 45 53 20 54 48 |OUP OF V|ALUES TH|
|000001f0| 41 54 20 43 41 4e 65 60 | 61 01 cc 2a 5f 03 21 11 |AT CANe`|a..*_.!.|
|00000200| 42 45 20 4f 52 47 41 4e | 49 5a 45 44 2d 2d 41 20 |BE ORGAN|IZED--A |
|00000210| 4c 49 53 54 20 4f 46 20 | 4e 41 4d 45 53 2c 20 41 |LIST OF |NAMES, A|
|00000220| 65 60 61 01 d6 2c 5f 03 | 23 11 54 41 42 4c 45 20 |e`a..,_.|#.TABLE |
|00000230| 4f 46 20 46 49 47 55 52 | 45 53 2d 2d 43 41 4e 20 |OF FIGUR|ES--CAN |
|00000240| 42 45 20 53 54 4f 52 45 | 44 20 49 4e 65 60 61 01 |BE STORE|D INe`a.|
|00000250| e0 31 5f 03 28 11 57 48 | 41 54 20 41 4c 4c 20 43 |.1_.(.WH|AT ALL C|
|00000260| 4f 4d 50 55 54 45 52 20 | 4c 41 4e 47 55 41 47 45 |OMPUTER |LANGUAGE|
|00000270| 53 20 52 45 46 45 52 20 | 54 4f 20 41 53 65 60 61 |S REFER |TO ASe`a|
|00000280| 01 ea 2e 5f 03 25 11 41 | 4e 20 9b 41 52 52 41 59 |..._.%.A|N .ARRAY|
|00000290| 2e 9e 20 20 54 48 45 20 | 50 52 49 4d 41 52 59 20 |..  THE |PRIMARY |
|000002a0| 46 55 4e 43 54 49 4f 4e | 20 4f 46 65 60 61 01 f4 |FUNCTION| OFe`a..|
|000002b0| 2e 5f 03 25 11 41 52 52 | 41 59 53 20 49 53 20 54 |._.%.ARR|AYS IS T|
|000002c0| 4f 20 53 55 50 50 4c 59 | 20 41 20 47 52 49 44 20 |O SUPPLY| A GRID |
|000002d0| 4f 52 20 41 20 4c 49 53 | 54 65 60 61 01 fe 2e 5f |OR A LIS|Te`a..._|
|000002e0| 03 25 11 4f 46 20 49 4e | 46 4f 52 4d 41 54 49 4f |.%.OF IN|FORMATIO|
|000002f0| 4e 20 54 48 41 54 20 43 | 41 4e 20 42 45 20 4c 4f |N THAT C|AN BE LO|
|00000300| 4f 4b 45 44 20 55 50 65 | 60 61 02 08 31 5f 03 28 |OKED UPe|`a..1_.(|
|00000310| 11 42 59 20 4c 4f 43 41 | 54 49 4f 4e 20 52 41 54 |.BY LOCA|TION RAT|
|00000320| 48 45 52 20 54 48 41 4e | 20 42 59 20 4e 41 4d 45 |HER THAN| BY NAME|
|00000330| 2e 20 20 98 48 45 52 45 | 65 60 61 02 12 2c 5f 03 |.  .HERE|e`a..,_.|
|00000340| 23 11 49 53 20 41 20 46 | 41 4d 49 4c 49 41 52 20 |#.IS A F|AMILIAR |
|00000350| 4c 49 53 54 20 4f 46 20 | 49 4e 46 4f 52 4d 41 54 |LIST OF |INFORMAT|
|00000360| 49 4f 4e 2e 65 60 61 02 | 1c 06 7f 0a 81 02 26 0a |ION.e`a.|......&.|
|00000370| ff 1e 02 00 05 ff 1f 02 | 30 07 02 00 10 46 02 3a |........|0....F.:|
|00000380| 11 5f 66 03 07 4a 41 4e | 55 41 52 59 65 60 61 02 |._f..JAN|UARYe`a.|
|00000390| 44 12 5f 66 03 08 46 45 | 42 52 55 41 52 59 65 60 |D._f..FE|BRUARYe`|
|000003a0| 61 02 4e 0f 5f 66 03 05 | 4d 41 52 43 48 65 60 61 |a.N._f..|MARCHe`a|
|000003b0| 02 58 0f 5f 66 03 05 41 | 50 52 49 4c 65 60 61 02 |.X._f..A|PRILe`a.|
|000003c0| 62 0d 5f 66 03 03 4d 41 | 59 65 60 61 02 6c 0e 5f |b._f..MA|Ye`a.l._|
|000003d0| 66 03 04 4a 55 4e 45 65 | 60 61 02 76 0e 5f 66 03 |f..JUNEe|`a.v._f.|
|000003e0| 04 4a 55 4c 59 65 60 61 | 02 80 10 5f 66 03 06 41 |.JULYe`a|..._f..A|
|000003f0| 55 47 55 53 54 65 60 61 | 02 8a 13 5f 66 03 09 53 |UGUSTe`a|..._f..S|
|00000400| 45 50 54 45 4d 42 45 52 | 65 60 61 02 94 11 5f 66 |EPTEMBER|e`a..._f|
|00000410| 03 07 4f 43 54 4f 42 45 | 52 65 60 61 02 9e 12 5f |..OCTOBE|Re`a..._|
|00000420| 66 03 08 4e 4f 56 45 4d | 42 45 52 65 60 61 02 a8 |f..NOVEM|BERe`a..|
|00000430| 12 5f 66 03 08 44 45 43 | 45 4d 42 45 52 65 60 61 |._f..DEC|EMBERe`a|
|00000440| 02 b2 07 02 00 00 46 02 | bc 0a ff 1e 02 00 0c ff |......F.|........|
|00000450| 1f 02 c6 2b 5f 03 22 11 | 4e 4f 54 49 43 45 20 54 |...+_.".|NOTICE T|
|00000460| 48 41 54 20 54 48 49 53 | 20 4c 49 53 54 20 55 53 |HAT THIS| LIST US|
|00000470| 45 53 20 54 57 45 4c 56 | 45 65 60 61 02 d0 2e 5f |ES TWELV|Ee`a..._|
|00000480| 03 25 11 53 45 50 41 52 | 41 54 45 20 56 41 52 49 |.%.SEPAR|ATE VARI|
|00000490| 41 42 4c 45 53 2e 20 20 | 49 46 20 57 45 20 57 41 |ABLES.  |IF WE WA|
|000004a0| 4e 54 45 44 20 54 4f 65 | 60 61 02 da 2f 5f 03 26 |NTED TOe|`a../_.&|
|000004b0| 11 41 53 53 49 47 4e 20 | 53 41 4c 45 53 20 54 4f |.ASSIGN |SALES TO|
|000004c0| 20 45 41 43 48 20 4f 46 | 20 54 48 45 53 45 20 4d | EACH OF| THESE M|
|000004d0| 4f 4e 54 48 53 2c 65 60 | 61 02 e4 2c 5f 03 23 11 |ONTHS,e`|a..,_.#.|
|000004e0| 57 45 20 43 4f 55 4c 44 | 20 44 4f 20 53 4f 4d 45 |WE COULD| DO SOME|
|000004f0| 54 48 49 4e 47 20 4c 49 | 4b 45 20 54 48 49 53 2e |THING LI|KE THIS.|
|00000500| 2e 2e 65 60 61 02 ee 06 | 7f 0a 81 02 f8 05 7d 02 |..e`a...|......}.|
|00000510| 03 02 04 00 03 0c 09 70 | 03 d6 90 00 7b 03 16 0a |.......p|....{...|
|00000520| ff 1e 02 00 0e ff 1f 03 | 20 15 5f 03 0c 52 45 41 |........| ._..REA|
|00000530| 44 20 4a 41 4e 55 41 52 | 59 65 60 61 03 2a 16 5f |D JANUAR|Ye`a.*._|
|00000540| 03 0d 52 45 41 44 20 46 | 45 42 52 55 41 52 59 65 |..READ F|EBRUARYe|
|00000550| 60 61 03 34 13 5f 03 0a | 52 45 41 44 20 4d 41 52 |`a.4._..|READ MAR|
|00000560| 43 48 65 60 61 03 3e 13 | 5f 03 0a 52 45 41 44 20 |CHe`a.>.|_..READ |
|00000570| 41 50 52 49 4c 65 60 61 | 03 48 11 5f 03 08 52 45 |APRILe`a|.H._..RE|
|00000580| 41 44 20 4d 41 59 65 60 | 61 03 52 12 5f 03 09 52 |AD MAYe`|a.R._..R|
|00000590| 45 41 44 20 4a 55 4e 45 | 65 60 61 03 5c 12 5f 03 |EAD JUNE|e`a.\._.|
|000005a0| 09 52 45 41 44 20 4a 55 | 4c 59 65 60 61 03 66 14 |.READ JU|LYe`a.f.|
|000005b0| 5f 03 0b 52 45 41 44 20 | 41 55 47 55 53 54 65 60 |_..READ |AUGUSTe`|
|000005c0| 61 03 70 17 5f 03 0e 52 | 45 41 44 20 53 45 50 54 |a.p._..R|EAD SEPT|
|000005d0| 45 4d 42 45 52 65 60 61 | 03 7a 15 5f 03 0c 52 45 |EMBERe`a|.z._..RE|
|000005e0| 41 44 20 4f 43 54 4f 42 | 45 52 65 60 61 03 84 16 |AD OCTOB|ERe`a...|
|000005f0| 5f 03 0d 52 45 41 44 20 | 4e 4f 56 45 4d 42 45 52 |_..READ |NOVEMBER|
|00000600| 65 60 61 03 8e 16 5f 03 | 0d 52 45 41 44 20 44 45 |e`a..._.|.READ DE|
|00000610| 43 45 4d 42 45 52 65 60 | 61 03 98 1f 5f 03 16 44 |CEMBERe`|a..._..D|
|00000620| 41 54 41 20 31 32 2c 31 | 34 2c 31 35 2c 31 33 2c |ATA 12,1|4,15,13,|
|00000630| 31 32 2c 31 33 65 60 61 | 03 a2 1f 5f 03 16 44 41 |12,13e`a|..._..DA|
|00000640| 54 41 20 31 33 2c 31 36 | 2c 31 38 2c 32 33 2c 32 |TA 13,16|,18,23,2|
|00000650| 38 2c 34 30 65 60 61 03 | ac 28 5f 03 1f 98 47 4f |8,40e`a.|.(_...GO|
|00000660| 20 41 48 45 41 44 20 41 | 4e 44 20 52 55 4e 20 54 | AHEAD A|ND RUN T|
|00000670| 48 49 53 20 50 52 4f 47 | 52 41 4d 2e 65 60 61 03 |HIS PROG|RAM.e`a.|
|00000680| b6 06 7f 0e 81 03 c0 06 | 5f 60 61 03 ca 2f 5f 03 |........|_`a../_.|
|00000690| 26 49 54 20 44 4f 45 53 | 4e 27 54 20 4c 4f 4f 4b |&IT DOES|N'T LOOK|
|000006a0| 20 41 53 20 54 48 4f 55 | 47 48 20 41 4e 59 54 48 | AS THOU|GH ANYTH|
|000006b0| 49 4e 47 20 48 41 53 65 | 60 61 03 d4 30 5f 03 27 |ING HASe|`a..0_.'|
|000006c0| 11 48 41 50 50 45 4e 45 | 44 2c 20 42 55 54 20 54 |.HAPPENE|D, BUT T|
|000006d0| 48 45 20 44 41 54 41 20 | 56 41 4c 55 45 53 20 48 |HE DATA |VALUES H|
|000006e0| 41 56 45 20 41 4c 4c 65 | 60 61 03 de 26 5f 03 1d |AVE ALLe|`a..&_..|
|000006f0| 11 42 45 45 4e 20 41 53 | 53 49 47 4e 45 44 20 54 |.BEEN AS|SIGNED T|
|00000700| 4f 20 54 48 45 20 4d 4f | 4e 54 48 53 2e 65 60 61 |O THE MO|NTHS.e`a|
|00000710| 03 e8 06 7f 0a 81 03 f2 | 05 7d 03 03 fc 04 00 04 |........|.}......|
|00000720| 06 09 70 04 5e 93 00 7b | 04 10 2d 5f 03 24 49 46 |..p.^..{|..-_.$IF|
|00000730| 20 59 4f 55 20 57 41 4e | 54 45 44 20 54 4f 20 53 | YOU WAN|TED TO S|
|00000740| 45 45 20 54 48 45 20 56 | 41 4c 55 45 53 2c 20 59 |EE THE V|ALUES, Y|
|00000750| 4f 55 65 60 61 04 1a 1f | 5f 03 16 11 43 4f 55 4c |OUe`a...|_...COUL|
|00000760| 44 20 50 52 49 4e 54 20 | 45 41 43 48 20 4f 4e 45 |D PRINT |EACH ONE|
|00000770| 2e 65 60 61 04 24 06 5f | 60 61 04 2e 0a ff 1e 02 |.e`a.$._|`a......|
|00000780| 00 0e ff 1f 04 38 16 5f | 03 0d 50 52 49 4e 54 20 |.....8._|..PRINT |
|00000790| 4a 41 4e 55 41 52 59 65 | 60 61 04 42 17 5f 03 0e |JANUARYe|`a.B._..|
|000007a0| 50 52 49 4e 54 20 46 45 | 42 52 55 41 52 59 65 60 |PRINT FE|BRUARYe`|
|000007b0| 61 04 4c 14 5f 03 0b 50 | 52 49 4e 54 20 4d 41 52 |a.L._..P|RINT MAR|
|000007c0| 43 48 65 60 61 04 56 14 | 5f 03 0b 50 52 49 4e 54 |CHe`a.V.|_..PRINT|
|000007d0| 20 41 50 52 49 4c 65 60 | 61 04 60 12 5f 03 09 50 | APRILe`|a.`._..P|
|000007e0| 52 49 4e 54 20 4d 41 59 | 65 60 61 04 6a 13 5f 03 |RINT MAY|e`a.j._.|
|000007f0| 0a 50 52 49 4e 54 20 4a | 55 4e 45 65 60 61 04 74 |.PRINT J|UNEe`a.t|
|00000800| 13 5f 03 0a 50 52 49 4e | 54 20 4a 55 4c 59 65 60 |._..PRIN|T JULYe`|
|00000810| 61 04 7e 15 5f 03 0c 50 | 52 49 4e 54 20 41 55 47 |a.~._..P|RINT AUG|
|00000820| 55 53 54 65 60 61 04 88 | 18 5f 03 0f 50 52 49 4e |USTe`a..|._..PRIN|
|00000830| 54 20 53 45 50 54 45 4d | 42 45 52 65 60 61 04 92 |T SEPTEM|BERe`a..|
|00000840| 16 5f 03 0d 50 52 49 4e | 54 20 4f 43 54 4f 42 45 |._..PRIN|T OCTOBE|
|00000850| 52 65 60 61 04 9c 17 5f | 03 0e 50 52 49 4e 54 20 |Re`a..._|..PRINT |
|00000860| 4e 4f 56 45 4d 42 45 52 | 65 60 61 04 a6 17 5f 03 |NOVEMBER|e`a..._.|
|00000870| 0e 50 52 49 4e 54 20 44 | 45 43 45 4d 42 45 52 65 |.PRINT D|ECEMBERe|
|00000880| 60 61 04 b0 06 5f 60 61 | 04 ba 0a ff 1e 02 00 0c |`a..._`a|........|
|00000890| ff 1f 04 c4 1e 5f 03 15 | 57 48 59 20 44 4f 4e 27 |....._..|WHY DON'|
|000008a0| 54 20 59 4f 55 20 52 55 | 4e 20 49 54 3f 65 60 61 |T YOU RU|N IT?e`a|
|000008b0| 04 ce 06 7f 0e 81 04 d8 | 0a ff 1e 02 00 0e ff 1f |........|........|
|000008c0| 04 e2 0c 8c 8d 0f 01 02 | 00 0c 92 c5 04 ec 10 82 |........|........|
|000008d0| 10 ba 92 02 00 01 84 02 | 00 0c 85 87 04 f6 0b af |........|........|
|000008e0| 0a 0f 07 10 1c b0 b3 05 | 00 0c 5f 0a 0f 07 10 16 |........|.._.....|
|000008f0| 64 60 61 05 0a 07 8a 10 | 93 92 05 14 19 aa ad 00 |d`a.....|........|
|00000900| 0c ad 00 0e ad 00 0f ad | 00 0d ad 00 0c ad 00 0d |........|........|
|00000910| ab da 92 05 1e 19 aa ad | 00 0d ad 00 10 ad 00 12 |........|........|
|00000920| ad 00 17 ad 00 1c ad 00 | 28 ab 0e 97 05 28 0a ff |........|(....(..|
|00000930| 1e 02 00 0c ff 1f 05 32 | 2e 5f 03 25 11 57 45 4c |.......2|._.%.WEL|
|00000940| 4c 2c 20 41 54 20 4c 45 | 41 53 54 20 49 54 20 47 |L, AT LE|AST IT G|
|00000950| 45 54 53 20 54 48 45 20 | 4a 4f 42 20 44 4f 4e 45 |ETS THE |JOB DONE|
|00000960| 2e 65 60 61 05 3c 2d 5f | 03 24 11 42 55 54 20 57 |.e`a.<-_|.$.BUT W|
|00000970| 49 54 48 20 41 52 52 41 | 59 53 20 49 54 20 49 53 |ITH ARRA|YS IT IS|
|00000980| 20 4d 55 43 48 20 53 49 | 4d 50 4c 45 52 21 65 60 | MUCH SI|MPLER!e`|
|00000990| 61 05 46 06 7f 0a 81 05 | 50 05 7d 04 05 5a 04 00 |a.F.....|P.}..Z..|
|000009a0| 05 64 09 70 05 60 95 00 | 7b 05 6e 2e 5f 03 25 4c |.d.p.`..|{.n._.%L|
|000009b0| 4f 4f 4b 20 41 54 20 54 | 48 49 53 20 50 52 4f 47 |OOK AT T|HIS PROG|
|000009c0| 52 41 4d 2e 20 49 54 20 | 4e 45 45 44 53 20 4f 4e |RAM. IT |NEEDS ON|
|000009d0| 4c 59 20 41 65 60 61 05 | 78 2c 5f 03 23 11 53 49 |LY Ae`a.|x,_.#.SI|
|000009e0| 4e 47 4c 45 20 9a 52 45 | 41 44 98 20 53 54 41 54 |NGLE .RE|AD. STAT|
|000009f0| 45 4d 45 4e 54 20 41 4e | 44 20 4f 4e 4c 59 20 41 |EMENT AN|D ONLY A|
|00000a00| 65 60 61 05 82 24 5f 03 | 1b 11 53 49 4e 47 4c 45 |e`a..$_.|..SINGLE|
|00000a10| 20 56 41 52 49 41 42 4c | 45 2c 20 27 4d 4f 4e 54 | VARIABL|E, 'MONT|
|00000a20| 48 53 2e 27 65 60 61 05 | 8c 0a ff 1e 02 00 0e ff |HS.'e`a.|........|
|00000a30| 1f 05 96 06 5f 60 61 05 | a0 17 5f 03 0e 44 49 4d |...._`a.|.._..DIM|
|00000a40| 20 4d 4f 4e 54 48 53 28 | 31 32 29 65 60 61 05 aa | MONTHS(|12)e`a..|
|00000a50| 1b 5f 03 12 46 4f 52 20 | 43 4f 55 4e 54 3a 3d 31 |._..FOR |COUNT:=1|
|00000a60| 20 54 4f 20 31 32 65 60 | 61 05 b4 1c 5f 03 13 20 | TO 12e`|a..._.. |
|00000a70| 52 45 41 44 20 4d 4f 4e | 54 48 53 28 43 4f 55 4e |READ MON|THS(COUN|
|00000a80| 54 29 65 60 61 05 be 0f | 5f 03 06 45 4e 44 46 4f |T)e`a...|_..ENDFO|
|00000a90| 52 65 60 61 05 c8 1f 5f | 03 16 44 41 54 41 20 31 |Re`a..._|..DATA 1|
|00000aa0| 32 2c 31 34 2c 31 35 2c | 31 33 2c 31 32 2c 31 33 |2,14,15,|13,12,13|
|00000ab0| 65 60 61 05 d2 1f 5f 03 | 16 44 41 54 41 20 31 33 |e`a..._.|.DATA 13|
|00000ac0| 2c 31 36 2c 31 38 2c 32 | 33 2c 32 38 2c 34 30 65 |,16,18,2|3,28,40e|
|00000ad0| 60 61 05 dc 06 5f 60 61 | 05 e6 0a ff 1e 02 00 0c |`a..._`a|........|
|00000ae0| ff 1f 05 f0 1f 5f 03 16 | 52 55 4e 20 54 48 45 20 |....._..|RUN THE |
|00000af0| 50 52 4f 47 52 41 4d 20 | 41 47 41 49 4e 2e 65 60 |PROGRAM |AGAIN.e`|
|00000b00| 61 05 fa 06 7f 0e 81 06 | 04 2e 5f 03 25 11 54 48 |a.......|.._.%.TH|
|00000b10| 41 54 27 53 20 41 4c 4c | 20 49 54 20 54 41 4b 45 |AT'S ALL| IT TAKE|
|00000b20| 53 20 54 4f 20 41 53 53 | 49 47 4e 20 54 57 45 4c |S TO ASS|IGN TWEL|
|00000b30| 56 45 65 60 61 06 0e 30 | 5f 03 27 11 56 41 4c 55 |VEe`a..0|_.'.VALU|
|00000b40| 45 53 2e 20 20 41 4e 44 | 20 57 49 54 48 20 4a 55 |ES.  AND| WITH JU|
|00000b50| 53 54 20 4f 4e 45 20 4d | 4f 52 45 20 53 54 41 54 |ST ONE M|ORE STAT|
|00000b60| 45 2d 65 60 61 06 18 2e | 5f 03 25 11 4d 45 4e 54 |E-e`a...|_.%.MENT|
|00000b70| 2c 20 49 54 20 43 41 4e | 20 50 52 49 4e 54 20 54 |, IT CAN| PRINT T|
|00000b80| 48 45 4d 20 4f 55 54 20 | 41 53 20 57 45 4c 4c 21 |HEM OUT |AS WELL!|
|00000b90| 65 60 61 06 22 06 7f 0a | 81 06 2c 05 7d 05 06 36 |e`a."...|..,.}..6|
|00000ba0| 04 00 06 40 09 70 06 6b | 99 00 7b 06 4a 0a ff 1e |...@.p.k|..{.J...|
|00000bb0| 02 00 0e ff 1f 06 54 17 | 5f 03 0e 44 49 4d 20 4d |......T.|_..DIM M|
|00000bc0| 4f 4e 54 48 53 28 31 32 | 29 65 60 61 06 5e 1b 5f |ONTHS(12|)e`a.^._|
|00000bd0| 03 12 46 4f 52 20 43 4f | 55 4e 54 3a 3d 31 20 54 |..FOR CO|UNT:=1 T|
|00000be0| 4f 20 31 32 65 60 61 06 | 68 1c 5f 03 13 20 52 45 |O 12e`a.|h._.. RE|
|00000bf0| 41 44 20 4d 4f 4e 54 48 | 53 28 43 4f 55 4e 54 29 |AD MONTH|S(COUNT)|
|00000c00| 65 60 61 06 72 1f 5f 03 | 16 1e 20 50 52 49 4e 54 |e`a.r._.|.. PRINT|
|00000c10| 20 4d 4f 4e 54 48 53 28 | 43 4f 55 4e 54 29 9a 65 | MONTHS(|COUNT).e|
|00000c20| 60 61 06 7c 0f 5f 03 06 | 45 4e 44 46 4f 52 65 60 |`a.|._..|ENDFORe`|
|00000c30| 61 06 86 1f 5f 03 16 44 | 41 54 41 20 31 32 2c 31 |a..._..D|ATA 12,1|
|00000c40| 34 2c 31 35 2c 31 33 2c | 31 32 2c 31 33 65 60 61 |4,15,13,|12,13e`a|
|00000c50| 06 90 1f 5f 03 16 44 41 | 54 41 20 31 33 2c 31 36 |..._..DA|TA 13,16|
|00000c60| 2c 31 38 2c 32 33 2c 32 | 38 2c 34 30 65 60 61 06 |,18,23,2|8,40e`a.|
|00000c70| 9a 06 5f 60 61 06 a4 0a | ff 1e 02 00 0c ff 1f 06 |.._`a...|........|
|00000c80| ae 2f 5f 03 26 52 55 4e | 20 54 48 49 53 20 50 52 |./_.&RUN| THIS PR|
|00000c90| 4f 47 52 41 4d 20 4e 4f | 57 2d 2d 49 54 20 57 49 |OGRAM NO|W--IT WI|
|00000ca0| 4c 4c 20 52 45 41 44 20 | 41 4e 44 65 60 61 06 b8 |LL READ |ANDe`a..|
|00000cb0| 2c 5f 03 23 11 54 48 45 | 4e 20 50 52 49 4e 54 20 |,_.#.THE|N PRINT |
|00000cc0| 4f 55 54 20 54 48 45 20 | 56 41 4c 55 45 53 20 41 |OUT THE |VALUES A|
|00000cd0| 53 53 49 47 4e 45 44 65 | 60 61 06 c2 23 5f 03 1a |SSIGNEDe|`a..#_..|
|00000ce0| 11 54 4f 20 45 41 43 48 | 20 4f 46 20 54 57 45 4c |.TO EACH| OF TWEL|
|00000cf0| 56 45 20 4d 4f 4e 54 48 | 53 2e 65 60 61 06 cc 06 |VE MONTH|S.e`a...|
|00000d00| 7f 0e 81 06 d6 0a ff 1e | 02 00 05 ff 1f 06 e0 0c |........|........|
|00000d10| 8c 8d 11 01 02 00 0c 92 | c5 06 ea 10 82 10 07 97 |........|........|
|00000d20| 02 00 01 84 02 00 0c 85 | 87 06 f4 0b af 0a 11 07 |........|........|
|00000d30| 10 1c b0 b3 06 fe 0c 5f | 0a 11 07 10 16 64 60 61 |......._|.....d`a|
|00000d40| 07 08 07 8a 10 e0 96 07 | 12 19 aa ad 00 0c ad 00 |........|........|
|00000d50| 0e ad 00 0f ad 00 0d ad | 00 0c ad 00 0d ab 27 97 |........|......'.|
|00000d60| 07 1c 19 aa ad 00 0d ad | 00 10 ad 00 12 ad 00 17 |........|........|
|00000d70| ad 00 1c ad 00 28 ab 00 | 00 07 26 06 5f 60 61 07 |.....(..|..&._`a.|
|00000d80| 30 0a ff 1e 02 00 0c ff | 1f 07 3a 21 5f 03 18 11 |0.......|..:!_...|
|00000d90| 46 41 52 20 53 49 4d 50 | 4c 45 52 20 54 4f 20 50 |FAR SIMP|LER TO P|
|00000da0| 52 4f 47 52 41 4d 21 65 | 60 61 07 44 06 7f 0a 81 |ROGRAM!e|`a.D....|
|00000db0| 07 4e 20 5f 03 17 4c 49 | 53 54 20 54 48 45 20 50 |.N _..LI|ST THE P|
|00000dc0| 52 4f 47 52 41 4d 20 41 | 47 41 49 4e 2e 65 60 61 |ROGRAM A|GAIN.e`a|
|00000dd0| 07 58 06 7f 12 81 07 62 | 0a ff 1e 02 00 0e ff 1f |.X.....b|........|
|00000de0| 07 6c 17 5f 03 0e 44 49 | 4d 20 4d 4f 4e 54 48 53 |.l._..DI|M MONTHS|
|00000df0| 28 31 32 29 65 60 61 07 | 76 1b 5f 03 12 46 4f 52 |(12)e`a.|v._..FOR|
|00000e00| 20 43 4f 55 4e 54 3a 3d | 31 20 54 4f 20 31 32 65 | COUNT:=|1 TO 12e|
|00000e10| 60 61 07 80 1c 5f 03 13 | 20 52 45 41 44 20 4d 4f |`a..._..| READ MO|
|00000e20| 4e 54 48 53 28 43 4f 55 | 4e 54 29 65 60 61 07 8a |NTHS(COU|NT)e`a..|
|00000e30| 1d 5f 03 14 20 50 52 49 | 4e 54 20 4d 4f 4e 54 48 |._.. PRI|NT MONTH|
|00000e40| 53 28 43 4f 55 4e 54 29 | 65 60 61 07 94 0f 5f 03 |S(COUNT)|e`a..._.|
|00000e50| 06 45 4e 44 46 4f 52 65 | 60 61 07 9e 1f 5f 03 16 |.ENDFORe|`a..._..|
|00000e60| 44 41 54 41 20 31 32 2c | 31 34 2c 31 35 2c 31 33 |DATA 12,|14,15,13|
|00000e70| 2c 31 32 2c 31 33 65 60 | 61 07 a8 1f 5f 03 16 44 |,12,13e`|a..._..D|
|00000e80| 41 54 41 20 31 33 2c 31 | 36 2c 31 38 2c 32 33 2c |ATA 13,1|6,18,23,|
|00000e90| 32 38 2c 34 30 65 60 61 | 07 b2 06 5f 60 61 07 bc |28,40e`a|..._`a..|
|00000ea0| 0a ff 1e 02 00 0c ff 1f | 07 c6 2c 5f 03 23 4e 4f |........|..,_.#NO|
|00000eb0| 54 49 43 45 3a 20 20 57 | 45 20 4e 45 45 44 20 4f |TICE:  W|E NEED O|
|00000ec0| 4e 4c 59 20 4f 4e 45 20 | 56 41 52 49 41 42 4c 45 |NLY ONE |VARIABLE|
|00000ed0| 2e 65 60 61 07 d0 2d 5f | 03 24 11 4d 4f 4e 54 48 |.e`a..-_|.$.MONTH|
|00000ee0| 53 28 31 29 2c 20 4d 4f | 4e 54 48 53 28 32 29 2c |S(1), MO|NTHS(2),|
|00000ef0| 20 45 54 43 2e 20 54 41 | 4b 45 20 54 48 45 65 60 | ETC. TA|KE THEe`|
|00000f00| 61 07 da 2e 5f 03 25 11 | 50 4c 41 43 45 20 4f 46 |a..._.%.|PLACE OF|
|00000f10| 20 4a 41 4e 55 41 52 59 | 2c 20 46 45 42 52 55 41 | JANUARY|, FEBRUA|
|00000f20| 52 59 2e 2e 2e 2e 20 20 | 20 41 4e 44 65 60 61 07 |RY....  | ANDe`a.|
|00000f30| e4 2c 5f 03 23 11 45 56 | 45 4e 20 54 48 45 20 4e |.,_.#.EV|EN THE N|
|00000f40| 55 4d 42 45 52 53 20 41 | 52 45 20 41 55 54 4f 4d |UMBERS A|RE AUTOM|
|00000f50| 41 54 49 43 41 4c 4c 59 | 65 60 61 07 ee 31 5f 03 |ATICALLY|e`a..1_.|
|00000f60| 28 11 49 4e 43 52 45 4d | 45 4e 54 45 44 20 42 45 |(.INCREM|ENTED BE|
|00000f70| 43 41 55 53 45 20 57 45 | 20 55 53 45 20 54 48 45 |CAUSE WE| USE THE|
|00000f80| 20 56 41 52 49 41 42 4c | 45 65 60 61 07 f8 12 5f | VARIABL|Ee`a..._|
|00000f90| 03 09 11 1e 43 4f 55 4e | 54 98 21 65 60 61 08 02 |....COUN|T.!e`a..|
|00000fa0| 06 7f 0a 81 08 0c 05 7d | 06 08 16 04 00 08 20 09 |.......}|...... .|
|00000fb0| 70 07 06 9c 00 7b 08 2a | 0b 5f 02 00 0e 4b 65 60 |p....{.*|._...Ke`|
|00000fc0| 61 08 34 10 5f 03 07 d3 | d5 cd cd c1 d2 d9 65 60 |a.4._...|......e`|
|00000fd0| 61 08 3e 06 5f 60 61 08 | 48 2d 5f 03 24 31 2e 20 |a.>._`a.|H-_.$1. |
|00000fe0| 20 c1 d2 d2 c1 d9 d3 20 | 41 52 45 20 4c 49 4b 45 | ...... |ARE LIKE|
|00000ff0| 20 4c 49 53 54 53 20 4f | 52 20 54 41 42 4c 45 53 | LISTS O|R TABLES|
|00001000| 2e 65 60 61 08 52 06 5f | 60 61 08 5c 2e 5f 03 25 |.e`a.R._|`a.\._.%|
|00001010| 32 2e 20 20 d9 4f 55 20 | 4e 45 45 44 20 54 4f 20 |2.  .OU |NEED TO |
|00001020| 54 45 4c 4c 20 54 48 45 | 20 43 4f 4d 50 55 54 45 |TELL THE| COMPUTE|
|00001030| 52 20 54 48 45 65 60 61 | 08 66 2f 5f 03 26 4d 41 |R THEe`a|.f/_.&MA|
|00001040| 58 49 4d 55 4d 20 45 58 | 50 45 43 54 45 44 20 53 |XIMUM EX|PECTED S|
|00001050| 49 5a 45 20 4f 46 20 54 | 48 45 20 41 52 52 41 59 |IZE OF T|HE ARRAY|
|00001060| 2e 20 cf 46 65 60 61 08 | 70 2e 5f 03 25 43 4f 55 |. .Fe`a.|p._.%COU|
|00001070| 52 53 45 20 59 4f 55 20 | 44 4f 4e 27 54 20 48 41 |RSE YOU |DON'T HA|
|00001080| 56 45 20 54 4f 20 55 53 | 45 20 41 4c 4c 20 54 48 |VE TO US|E ALL TH|
|00001090| 41 54 65 60 61 08 7a 2b | 5f 03 22 53 50 41 43 45 |ATe`a.z+|_."SPACE|
|000010a0| 2c 20 42 55 54 20 59 4f | 55 20 4d 55 53 54 20 48 |, BUT YO|U MUST H|
|000010b0| 41 56 45 20 41 54 20 4c | 45 41 53 54 20 65 60 61 |AVE AT L|EAST e`a|
|000010c0| 08 84 2e 5f 03 25 45 4e | 4f 55 47 48 2e 20 20 cf |..._.%EN|OUGH.  .|
|000010d0| 4e 20 54 48 45 20 4f 54 | 48 45 52 20 48 41 4e 44 |N THE OT|HER HAND|
|000010e0| 2c 20 59 4f 55 20 44 4f | 4e 27 54 65 60 61 08 8e |, YOU DO|N'Te`a..|
|000010f0| 2d 5f 03 24 57 41 4e 54 | 20 54 4f 20 44 45 43 4c |-_.$WANT| TO DECL|
|00001100| 41 52 45 20 41 52 52 41 | 59 53 20 55 4e 4e 45 43 |ARE ARRA|YS UNNEC|
|00001110| 45 53 53 41 52 49 4c 59 | 65 60 61 08 98 2e 5f 03 |ESSARILY|e`a..._.|
|00001120| 25 4c 41 52 47 45 20 53 | 49 4e 43 45 20 54 48 41 |%LARGE S|INCE THA|
|00001130| 54 20 55 53 45 53 20 55 | 50 20 4d 45 4d 4f 52 59 |T USES U|P MEMORY|
|00001140| 20 53 50 41 43 45 65 60 | 61 08 a2 26 5f 03 1d 46 | SPACEe`|a..&_..F|
|00001150| 4f 52 20 53 54 4f 52 49 | 4e 47 20 59 4f 55 52 20 |OR STORI|NG YOUR |
|00001160| 49 4e 46 4f 52 4d 41 54 | 49 4f 4e 2e 65 60 61 08 |INFORMAT|ION.e`a.|
|00001170| ac 06 5f 60 61 08 b6 2e | 5f 03 25 33 2e 20 20 c1 |.._`a...|_.%3.  .|
|00001180| 52 52 41 59 53 20 53 54 | 4f 52 45 20 54 48 45 49 |RRAYS ST|ORE THEI|
|00001190| 52 20 49 4e 46 4f 52 4d | 41 54 49 4f 4e 20 42 59 |R INFORM|ATION BY|
|000011a0| 65 60 61 08 c0 2d 5f 03 | 24 54 48 45 20 4c 4f 43 |e`a..-_.|$THE LOC|
|000011b0| 41 54 49 4f 4e 20 57 49 | 54 48 49 4e 20 54 48 45 |ATION WI|THIN THE|
|000011c0| 20 4c 49 53 54 20 52 41 | 54 48 45 52 20 65 60 61 | LIST RA|THER e`a|
|000011d0| 08 ca 2e 5f 03 25 54 48 | 41 4e 20 42 59 20 41 20 |..._.%TH|AN BY A |
|000011e0| 53 45 50 41 52 41 54 45 | 20 4e 41 4d 45 20 46 4f |SEPARATE| NAME FO|
|000011f0| 52 20 45 41 43 48 20 49 | 54 45 4d 65 60 61 08 d4 |R EACH I|TEMe`a..|
|00001200| 15 5f 03 0c 4f 46 20 54 | 48 45 20 4c 49 53 54 2e |._..OF T|HE LIST.|
|00001210| 65 60 61 08 de 06 7f 0a | 81 08 e8 26 5f 03 1d d4 |e`a.....|...&_...|
|00001220| 48 49 53 20 43 4f 4e 43 | 4c 55 44 45 53 20 4c 45 |HIS CONC|LUDES LE|
|00001230| 53 53 4f 4e 20 46 49 46 | 54 45 45 4e 65 60 61 08 |SSON FIF|TEENe`a.|
|00001240| f2 05 7d 07 08 fc 04 00 | 09 06 09 70 0e 6b 9c 00 |..}.....|...p.k..|
|00001250| 7b 09 10 06 5f 60 61 09 | 1a 04 95 09 24 21 b5 03 |{..._`a.|....$!..|
|00001260| 16 9e 45 4e 54 45 52 20 | 52 55 4e 20 43 4f 4d 4d |..ENTER |RUN COMM|
|00001270| 41 4e 44 20 2d 2d 3e b7 | 09 08 ba bb 09 2e 0f da |AND -->.|........|
|00001280| 06 08 03 03 52 55 4e 2d | 96 00 00 09 38 06 5f 60 |....RUN-|....8._`|
|00001290| 61 09 42 05 7d 0e 09 4c | 04 00 09 56 09 70 12 d7 |a.B.}..L|...V.p..|
|000012a0| 9c 00 7b 09 60 06 5f 60 | 61 09 6a 04 95 09 74 22 |..{.`._`|a.j...t"|
|000012b0| b5 03 17 9e 45 4e 54 45 | 52 20 4c 49 53 54 20 43 |....ENTE|R LIST C|
|000012c0| 4f 4d 4d 41 4e 44 20 2d | 2d 3e b7 09 08 ba bb 09 |OMMAND -|->......|
|000012d0| 7e 10 da 06 08 03 04 4c | 49 53 54 2d 96 00 00 09 |~......L|IST-....|
|000012e0| 88 06 5f 60 61 09 92 05 | 7d 12 14 fb 89 00 00 14 |.._`a...|}.......|
|000012f0| 78 8b 00 00 14 c2 8e 00 | 00 14 df 90 00 00 14 67 |x.......|.......g|
|00001300| 93 00 00 14 69 95 00 00 | 14 74 99 00 00 12 f3 af |....i...|.t......|
|00001310| 00 00 14 75 8a 00 00 14 | 92 8a 00 00 10 5e af 00 |...u....|.....^..|
|00001320| 00 10 ee af 00 00 14 5a | 8b 00 00 14 0b 9c 00 00 |.......Z|........|
|00001330| 90 e7 af 00 00 10 a6 af | 00 00 90 9f af 00 00 14 |........|........|
|00001340| 74 9c 00 00 00 00 00 00 | 00 05 49 4e 54 52 4f 07 |t.......|..INTRO.|
|00001350| 50 41 47 45 4f 4e 45 07 | 50 41 47 45 54 57 4f 09 |PAGEONE.|PAGETWO.|
|00001360| 50 41 47 45 54 48 52 45 | 45 08 50 41 47 45 46 4f |PAGETHRE|E.PAGEFO|
|00001370| 55 52 08 50 41 47 45 46 | 49 56 45 07 53 55 4d 4d |UR.PAGEF|IVE.SUMM|
|00001380| 41 52 59 01 41 04 50 41 | 47 45 0a 53 48 49 46 54 |ARY.A.PA|GE.SHIFT|
|00001390| 27 57 41 49 54 0a 53 48 | 49 46 54 27 46 4c 41 47 |'WAIT.SH|IFT'FLAG|
|000013a0| 05 44 45 4c 41 59 04 4d | 45 4e 55 07 47 45 54 27 |.DELAY.M|ENU.GET'|
|000013b0| 52 55 4e 06 4d 4f 4e 54 | 48 53 01 49 03 4d 4f 4e |RUN.MONT|HS.I.MON|
|000013c0| 08 47 45 54 27 4c 49 53 | 54 03 4c 53 54 00 00    |.GET'LIS|T.LST.. |
+--------+-------------------------+-------------------------+--------+--------+